home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u9.d64 / disk'get'improv < prev    next >
Text File  |  2007-02-28  |  1KB  |  42 lines
  1. 9900 //
  2. 9901 // DISK'GET ROUTINES FOLLOW
  3. 9902 //
  4. 9903 PROC DISK'GET(FILE'NUM,COUNT,REF FILE'END) CLOSED
  5. 9904 POKE 2025,FILE'NUM
  6. 9905 POKE 2039,(COUNT MOD 256)
  7. 9906 SYS 2024
  8. 9907 FILE'END:=PEEK(144)
  9. 9908 ENDPROC DISK'GET
  10. 9909 //
  11. 9910 PROC DISK'GET'SKIP(COUNT,FILE'NUM,REF FILE'END) CLOSED
  12. 9911 DISK'GET(FILE'NUM,COUNT,FILE'END)
  13. 9912 ENDPROC DISK'GET'SKIP
  14. 9913 //
  15. 9914 PROC DISK'GET'STRING(REF ITEM$,COUNT,FILE'NUM,REF FILE'END) CLOSED
  16. 9915 ITEM$:=""
  17. 9916 DISK'GET(FILE'NUM,COUNT,FILE'END)
  18. 9917 FOR X#:=1 TO COUNT DO ITEM$(X#):=CHR$(PEEK(1023+X#))
  19. 9918 ENDPROC DISK'GET'STRING
  20. 9919 //
  21. 9920 PROC DISK'GET'INIT CLOSED
  22. 9921 FOR LOC#:=2024 TO 2045 DO
  23. 9922 READ V
  24. 9923 POKE LOC#,V
  25. 9924 ENDFOR LOC#
  26. 9925 DATA 162,0,32,198,255,162,0
  27. 9926 DATA 32,207,255,157,0,4,232
  28. 9927 DATA 224,0,208,245,32,204,255,96
  29. 9928 //
  30. 9929 // 2024 LDX #0     ;FILE NO.
  31. 9930 // 2026 JSR FFC6   ;OPEN CHAN IN X
  32. 9931 // 2029 LDX #0     ;INDEX
  33. 9932 // 2031 JSR FFCF   ;INP CHAR
  34. 9933 // 2034 STA 0400,X ;STOR TO SCREEN
  35. 9934 // 2037 INX        ;NEXT BYTE
  36. 9935 // 2038 CPX #0
  37. 9936 // 2040 BNE 2031   ;MORE?
  38. 9937 // 2042 JSR FFCC   ;RESTIO
  39. 9938 // 2045 RTS        ;DONE
  40. 9939 ENDPROC DISK'GET'INIT
  41. 9940 //
  42.